00100		TITLE LOSE
00200		ENTRY JOKES
00300	ISPC=[110]
00400	JOKES:	0
00500		MOVE 3,[201004020100]
00600		SETZ 4,
00700		MOVE 5,1(16)
00800	TOP:	CAME 3,@5
00900		JRST NEXT
01000		AOJ 4,
01100		CAMN 4,ISPC
01200		JRA 16,2(16)
01300		AOJ 5,
01400		JRST TOP
01500	NEXT:	SETOM @0(16)
01600		JRA 16,2(16)
01700		END